home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
filutil
/
pa_st270.zip
/
EXAMPLE7.POM
< prev
next >
Wrap
Text File
|
1995-02-01
|
476b
|
23 lines
;
; NOTE: A quick-reference summary of POM commands appears in EXAMPLE4.POM
;
;-----------------------------------------------------------------------------
;
; Replace the tab characters with spaces
;
CHANGE $FLINE $TAB " "
;
; Extract the columns
;
SET PROGNAME = $FLINE[ 1 20]
SET DESCRIP = $FLINE[22 99]
;
; Trim the spaces
;
TRIM PROGNAME "B" " "
TRIM DESCRIP "B" " "
;
; Output the result
;
OUTEND "X" = "X" |"{PROGNAME}","{DESCRIP}"